program Project1; //Zadanie 4.1

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n = 10;

type tablica = array[1..n] of integer;

var
  i : integer;
  dane : tablica;

begin
  for i:=1 to n do
    begin
      dane[i]:=i;
      Writeln('dane[',i,'] = ',dane[i]);
    end;

  Readln; //czeka na nacisniecie klawisza Enter
end.
